unit UContasPagarMd;

interface

uses SysUtils;

type TContasPagarMd = class(TObject)

   private
      idContasPagar : Integer;
      dataPagamento : TDateTime;
      valor : Double;
      observacao : String;

   public
      constructor Create;
      destructor Destroy;
      
      function getIdContasPagar : Integer;
      procedure setIdContasPagar(idContasPagar : Integer);

      function getDataPagamento : TDateTime;
      procedure setDataPagamento(dataPagamento : TDateTime);

      function getValor : Double;
      procedure setValor(valor : Double);

      function getObservacao : String;
      procedure setObservacao(observacao : String);

end;

implementation

constructor TContasPagarMd.Create;
begin
   // inherited;
end;

destructor TContasPagarMd.Destroy;
begin
   // inherited;
end;

function TContasPagarMd.getIdContasPagar : Integer;
begin
   result := self.idContasPagar;
end;

procedure TContasPagarMd.setIdContasPagar(idContasPagar : Integer);
begin
   self.idContasPagar := idContasPagar;
end;

function TContasPagarMd.getDataPagamento : TDateTime;
begin
   result := self.dataPagamento;
end;

procedure TContasPagarMd.setDataPagamento(dataPagamento : TDateTime);
begin
   self.dataPagamento := dataPagamento;
end;

function TContasPagarMd.getValor : Double;
begin
   result := self.valor;
end;

procedure TContasPagarMd.setValor(valor : Double);
begin
   self.valor := valor;
end;

function TContasPagarMd.getObservacao : String;
begin
   result := self.observacao;
end;

procedure TContasPagarMd.setObservacao(observacao : String);
begin
   self.observacao := observacao;
end;

end.
 